home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch02 / mymulti.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-30  |  2.4 KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form frmMyMulti 
  3.    Caption         =   "The MyMulti Program"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   4425
  9.    Icon            =   MYMULTI.FRX:0000
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin CommandButton cmdSetData2 
  17.       Caption         =   "Set Data &2"
  18.       FontBold        =   -1  'True
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   12
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   495
  25.       Left            =   1800
  26.       TabIndex        =   3
  27.       Top             =   2640
  28.       Width           =   3975
  29.    End
  30.    Begin CommandButton cmdSetData 
  31.       Caption         =   "&Set Data"
  32.       FontBold        =   -1  'True
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   12
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       Height          =   495
  39.       Left            =   1800
  40.       TabIndex        =   2
  41.       Top             =   3240
  42.       Width           =   3975
  43.    End
  44.    Begin CommandButton cmdExit 
  45.       Caption         =   "E&xit"
  46.       Height          =   495
  47.       Left            =   360
  48.       TabIndex        =   1
  49.       Top             =   3240
  50.       Width           =   1215
  51.    End
  52.    Begin CommandButton cmdAbout 
  53.       Caption         =   "&About..."
  54.       Height          =   495
  55.       Left            =   5880
  56.       TabIndex        =   0
  57.       Top             =   3240
  58.       Width           =   1215
  59.    End
  60. Option Explicit
  61. Sub cmdAbout_Click ()
  62.     ' MsgBox "(C) Copyright 1994-1995", 64, "About MyMulti"
  63.     ' MsgBox "(C) Copyright 1994-1995", 64, "About MyAbout"
  64.     frmAbout.Show 1
  65. End Sub
  66. Sub cmdExit_Click ()
  67.     End
  68. End Sub
  69. Sub cmdSetData_Click ()
  70.     frmInput.txtInput.Text = ggUserInput
  71.     frmInput.Show 1
  72.     frmMyMulti.Cls
  73.     Print "You typed: " + ggUserInput
  74. End Sub
  75. Sub cmdSetData2_Click ()
  76.     frmIndependent.Show 1
  77.     frmMyMulti.Cls
  78.     Print frmIndependent.txtUserInput.Text
  79.      
  80. End Sub
  81. Sub Form_Load ()
  82.     ggUserInput = "Initial Value"
  83. End Sub
  84.